<%
'
' Version: 0.01.0001
' Original Author: Colin Chen
' Creation Date: 28 Dec 2009
' Last Update:
' Modified By:
' Modification Date:
'
' Option Explicit

'On Error Resume next

dim conn,conn1,conntype,connstr,Database,DataSource,UserID,Password,UserAgent
connstr = "Provider=SQLOLEDB; Data Source=127.0.0.1; Initial Catalog=rptcard_0910B; User ID=sa; Password=ykpao123"

Set conn = Server.CreateObject("ADODB.Connection")
conn.open connstr

Set conn1 = Server.CreateObject("ADODB.Connection")
conn1.open connstr


sub CloseConn()
	conn.close
	set conn=nothing
end sub

sub CloseConn1()
	conn1.close
	set conn1=nothing
end sub
%>